(^^ setf *trace-level* 9)

(tweeteo	

	(cat adv t () (to regla1))
	(cat adv t () (to regla10))
	(cat adv t () (to regla25))
)

(regla1 (cat verbo t () (to regla2)))


(regla2 (cat n2 t () (to regla3)))

(regla3 (cat unk t () (to regla4))) 

(regla4 (cat unk t () (to regla5)))

(regla5 (cat unk t () (to regla6)))

(regla6 (cat prop t () (to regla7)))

(regla7 (cat v1 t () (to regla8)))

(regla8 (cat art t () (to regla9)))

(regla9 (cat unk t () (to end)))


(regla10 (cat unk t () (to regla11)))

(regla11 (cat unk t () (to regla12)))

(regla12 (cat adv t () (to regla13)))

(regla13 (cat unk t () (to regla14))) 

(regla14 (cat v1 t () (to regla15)))

(regla15 (cat art t () (to regla16))) 

(regla16 (cat unk t () (to regla17)))

(regla17 (cat unk t () (to regla18)))

(regla18 (cat adv t () (to regla19)))

(regla19 (cat adv t () (to regla20)))

(regla20 (cat unk t () (to regla21)))

(regla21 (cat unk t () (to regla22)))
 
(regla22 (cat unk t () (to regla23)))

(regla23 (cat unk t () (to regla24)))
 
(regla24 (cat unk t () (to end)))


(regla25 (cat unk t () (to regla26)))

(regla26 (cat unk t () (to regla27)))

(regla27 (cat 0 t () (to regla28)))
 
(regla28 (cat v28 t () (to regla29)))

(regla29 (cat prop t () (to regla30)))
 
(regla30 (cat v1 t () (to regla31)))

(regla31 (cat art t () (to regla32)))

(regla32 (cat unk t () (to regla33)))
 
(regla33 (cat unk t () (to end)))







(end (pop "Mensaje" t))





